home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b3.d64 / program83 < prev    next >
Text File  |  2007-02-28  |  1KB  |  50 lines
  1. 0010 // PROGRAM 83
  2. 0020 //
  3. 0030 // COMELY KATE
  4. 0040 //
  5. 0050 // ADDITION QUESTIONS
  6. 0060 //
  7. 0070 DIM REPLY$ OF 3
  8. 0080 ALLOWEDWRONG:=3
  9. 0090 HIGHESTNUMBER:=100
  10. 0100 PRINT 
  11. 0110 PRINT "HERE ARE SOME SIMPLE QUESTIONS ON       ADDITION"
  12. 0120 PRINT 
  13. 0130 TOTALQUESTIONS:=0
  14. 0140 NUMBERRIGHT:=0
  15. 0150 REPEAT 
  16. 0160 FIRST:=RND(1,HIGHESTNUMBER)
  17. 0170 SECOND:=RND(1,HIGHESTNUMBER)
  18. 0180 NUMBERWRONG:=0
  19. 0190 TOTALQUESTIONS:=TOTALQUESTIONS+1
  20. 0200 REPEAT 
  21. 0210 PRINT FIRST," + ",SECOND," = ",
  22. 0220 INPUT ANSWER
  23. 0230 PRINT 
  24. 0240 IF ANSWER=FIRST+SECOND THEN
  25. 0250 PRINT "CORRECT - VERY GOOD"
  26. 0260 NUMBERRIGHT:=NUMBERRIGHT+1
  27. 0270 RIGHT':=TRUE
  28. 0280 ELSE 
  29. 0290 PRINT "SORRY - WRONG ANSWER!"
  30. 0300 NUMBERWRONG:=NUMBERWRONG+1
  31. 0310 PRINT 
  32. 0320 RIGHT':=FALSE
  33. 0330 IF NUMBERWRONG<ALLOWEDWRONG THEN PRINT "TRY AGAIN"
  34. 0340 ENDIF 
  35. 0350 UNTIL RIGHT' OR NUMBERWRONG=ALLOWEDWRONG
  36. 0360 IF NUMBERWRONG=ALLOWEDWRONG THEN
  37. 0370 PRINT "CORRECT ANSWER IS ",FIRST+SECOND
  38. 0380 PRINT 
  39. 0390 ENDIF 
  40. 0400 PRINT 
  41. 0410 INPUT "WOULD YOU LIKE ANOTHER QUESTION ? ": REPLY$
  42. 0420 UNTIL REPLY$="NO"
  43. 0430 PRINT 
  44. 0440 PRINT 
  45. 0450 PRINT 
  46. 0460 PRINT "YOU SCORED ",NUMBERRIGHT," OUT OF ",TOTALQUESTIONS
  47. 0470 PRINT 
  48. 0480 PRINT "BYE - AND GOOD LUCK!"
  49. 0490 END 
  50.